
 
 C o n t r o l s   O p e n T e x t B o x 
 
 C o n t r o l s   C l e a r T e x t B o x 
 
 F i n d P r i m e N u m b e r s 
 
 
 
 S t o p 
 
 
 
 V a r i a b l e   N u m e r i c   n u m b e r   =   2 
 
 V a r i a b l e   N u m e r i c   d i v i d e r 
 
 V a r i a b l e   N u m e r i c   i s P r i m e 
 
 
 
 L a b e l   F i n d P r i m e N u m b e r s 
 
 	 i s P r i m e   =   1 
 
 	 
 
 	 F o r   d i v i d e r   =   2   T o   S q r t ( n u m b e r ) 
 
 	 	 I f   M o d ( n u m b e r ,   d i v i d e r )   =   0 
 
 	 	 	 i s P r i m e   =   0 
 
 	 	 	 E x i t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 
 
 	 I f   n u m b e r   =   2   O r   i s P r i m e   =   1 
 
 	 	 P r i n t   n u m b e r   +   "   " 
 
 	 E n d I f 
 
 	 
 
 	 n u m b e r   =   n u m b e r   +   1 
 
 	 
 
 G o t o   F i n d P r i m e N u m b e r s 
 
 
 
 
 
 ' B O O K M A R K S   
 
 
 
 ' E D I T E D L I N E S   0   1 0   1 1   1 0   6   1 0   1 7   1 0   2 2   1 0   2 7   1 0   
 
 
 
 ' W A T C H   M o d ( n u m b e r ,   d i v i d e r ) 
 
 ' W A T C H   n u m b e r 
 
 ' W A T C H   d i v i d e r 
 
 ' E X E C   K _ N e w t o n   =   1 . 0 1 
 
 